home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / qbbs / cntra100.zip / REMOTE.RS < prev    next >
Text File  |  1992-09-02  |  3KB  |  62 lines
  1. TITLE "QWK Scan in MKQ Mail Door for the LSO Remote Access BBS"
  2. ; -----------------------------------------------------------------------
  3. ;  RACCESS.RS  - Robocomm 4.2 script file
  4. ; .......................................................................
  5. ;  Authors: Bill Castle & Mark Henderson.
  6. ;  Version: 1.0beta
  7. ;  Revised: 08/21/92
  8. ;
  9. ;           Notes:   You MUST have the renumbering style on Robocomm's
  10. ;           "Data and Logs" configuration screen set to "#???????.???"
  11. ;           in order to use this script! Also, for whatever reason I
  12. ;           found robos ansi filter to be hosed when talking to RA.
  13. ;           Maybe it's DV/X or my burned up 16550, whatever the case
  14. ;           if this script fails, turn graphics off.
  15. ;
  16. ;  Make sure you have configured LSO's logon options as follows.
  17. ;
  18. ;   [-] Top Menu
  19. ;
  20. ;   [1] MKnet QWK Mail Door ────────┐    <--- "only this one, eh?" 
  21. ;   [2] New Mail Checking ───┐      │                              
  22. ;                            │      X------- A Flags               
  23. ;   [3] New File Checking ─┐ └───────┘││                           
  24. ;                          └──────────┘│                           
  25. ;   [4] Welcome Screen ────────────────┘                           
  26. ;
  27. ; The above is from the default login options of RA@LSO.  Yours must match
  28. ; exactly or probable hard drive & motherboard meltdown is inevitable.
  29. ; Other RA systems may have things awry
  30. ; ----------------------------------------------------------------------
  31. :MAIN
  32. TIMEOUT 600
  33. ;Default to 10 minute scan for mail - edit as desired.
  34. CAPTURE "%ID%LOG.%DOW%" OVERWRITE
  35. IF EXIST "%QWKDIR%%ID%.QWK" RENUMBER "%QWKDIR%%ID%.QWK" 3
  36. DELAY 1
  37. WHEN "FrontDoor"                SEND "|"
  38. WHEN "Press Escape twice"       SEND "" 
  39. WHEN "enter your full name:"    SEND "%BBS13%|"    
  40. WHEN "Password:"                SEND "%BBS7%|"
  41. IF NOT EXIST "%REPDIR%%ID%.REP" GOTO MAILDWN
  42. WHEN "Enter your choice now:"   SEND "A"
  43. WHEN "(Yes/No/Enter=Yes):"      SEND "Y"
  44. WAITFOR "B01000"        FAILURE SEND "|"
  45.         UPLOAD "%REPDIR%%ID%.REP" USING "ROBOSZ"
  46. RENUMBER "%REPDIR%%ID%.REP" 3
  47. GOTO MAILRUN
  48. :MAILDWN
  49. WHEN "Enter your choice now:"   SEND "A"
  50. WHEN "(Yes/No/Enter=Yes):"      SEND "N"
  51. :MAILRUN
  52. WHEN "(Yes/No/Enter=No):"       SEND "Y"
  53. WAITFOR "B008000"       FAILURE SEND "|"         
  54.         DOWNLOAD "%QWKDIR%%ID%.QWK" USING "ROBORZ"
  55. DELAY 1        
  56. WHEN "GOODBYE"                 SEND "!"       
  57. WAITFOR "NO CARRIER" FAILURE SEND "G"
  58.         SEND "ATH|"
  59. CLOSE
  60. HANGUP
  61. EXIT 0
  62.